Require cl when compiling, for setf.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 3a70b5343a0973168f9254d53805b2de63df5e1c..784e8d5c320a73f41052f3bb1c495e603a4e01ec 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-04  Magnus Henoch  <mange@freemail.hu>
+
+       * url-expand.el: Require cl when compiling, for setf.
+
 2008-01-29  John Wiegley  <johnw@newartisans.com>
 
        * url-auth.el (url-digest-auth): If the 'opaque' argument is not

diff --git a/lisp/url/url-expand.el b/lisp/url/url-expand.el
index 545388ffa83ed024f64a6c7f52bf143575b1eaf2..0721a5961c82890d197e47cf1075adbbbcd9cdd5 100644 (file)
--- a/lisp/url/url-expand.el
+++ b/lisp/url/url-expand.el
@@ -26,6 +26,7 @@
 (require 'url-methods)
 (require 'url-util)
 (require 'url-parse)
+(eval-when-compile (require 'cl))
 
 (defun url-expander-remove-relative-links (name)
   ;; Strip . and .. from pathnames